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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER nat ae 


AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS H THE 


* 
® 
® 
& 
® 
® 
® 
SUCH LICENSE AND WITH * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. . 
® 
® 
® 
* 
& 
ay 
fe 
® 
* 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
AND SHOULD NOT I 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH | 


THOUT NOTICE 


I 
BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 
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> Facility: rms32 


Abstract: 
this routine performs final cleanup and sets 
status codes appropriately, generates user-level 
asts as Fogetr se. and exits rms returning to 
the user via the exec. 
Environment: . 
star processor running starlet exec. 
Author: L Ff Laverdure, creation date: 5-JAN-1977 
Modified By: 
v03-015 RASO307 Ron Schaefer 14-May-1984 


Save/restore R2, R3, R4 and RS in RMSSECHO subroutine 
as required by the VMS Calling Standard. 


v03-014 JEJ0032 JE Johnson — 30-Apr-1984 
Use the correct form of the bit equates for the async/I0 
rundown test. 


v03-013 RASO269 Ron Schaefer 19-Mar-1984 
A Little performance boost by re-arranging some code 
and branches and some instruction optimization. 
Cope with -1 addr from RMSSTALL and 
give the user a CDA error. 
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v04-000 P=} ope 98; 39:95 RMS. SRCIRMOEXTRMS.MAR; 1 - dy | Tal 
v03-012 pAsoooT David Solom 24-Jan-1984 
Remove code to dealloca EN ement new mechanism for 


te 
echoing reads from SYSSINPUT to Tees SOUTEUT (declare an AST 
in caller's mode here to do the $PUT, instead of returning a 
special status to CMODSSDSP and doing the $PUT there). 


v03-011 peg00de Donald G. Blair 04-Jan-1984 
This routine is executed during EVERY (7) RMS operation and 
was found to be critical to performance. Therefore, I've 
streamlined the most common execution paths. 


v03-010 oe 0002 Peter Lieberwirth 13-0c t-1983 
Use IMP$V_RUH SYNCH to determine whether to set the asynch 
EFN. RUH-SYNCH is set when the recovery unit handler needs 
to be nottiied that an RMS operation it is waiting on has 
completed. The handler waits for all user RMS requests to 
finish at markpoint, cancel, and end, so that it can then | 

flush buffers and journal entries. i[t uses the asynch EFN 
to synchronize with the completion of user-inspired RMS 
requests. 


V03-009 $HZ00011 ‘eR fo H. Zalewski 1-Sep-1983 
Do not call RMSLOWE LOCK for sequential gets and puts. 


This is a performance enhancement). | 


v03-008 KPLOUO01 Peter Lieberwirth 16-Jun-1983 
Add support to write the AT journal record describing a 
record operation, if required. 
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Delete reference to incorrect SQUAD_ALIGN macro; 
re-arrange code to accomplish alignment. 
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| 
v03-007 RASO120 Ron Schaefer 25-Jan-1983 | 
Add support to echo SSS INPUT to SYSSOUTPUT. | 
V03-006 KBT0365 Keith B. Thompson 6-0c t-1982 
Rewrite this gerbage and deallocate the ifab asb with 
retblk since it is now a ‘‘real’’ rms structure | 
v03-005 KBT0330 eith B. Thompson 10-Sep-1982 
Remove all SO FA i code | 
v03-004 LJA0011 Laurie Anderson 02-Sep-1982 | 
Add support for New Context XABs. If XABCXF oe XABCXR is 
8 attached to the FAB or RAB (respectivel ), then fill in 
0 } XAB with appropiate information. Uses AB_ SCAN. 
6 § 1 v03-003 JWHOO0O1 Jeffrey W. Horn 01-Sep-1982 
000 1 Set asynch event flag always if in recovery unit 
4 ! handler. 
000. «(1 v03-002 KBT0303 Keith B. Thompson 28-Aug-1982 
4 : Reorganize psects | 
00 v03-001 RASO089 Ron Schaefer 7=Jun-1982 | 
$90] 
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CLEANUP AND RETURN ROUTINE 


DECLARATIONS 


16-SEP-1984 00:30:07 AX/VMS Macro V04-00 Page 4 RM 


RMOEXTRMS CLEANUP AND RETURN, ROUT INE 
v04-000 RMSEXTRMS = EXIT RMS ROUTINE ~SEP-1984 1:42 CRMS.SRCIRMOEXTRMS.MAR; 1 (3) voi 
.SBTTL RMSEXTRMS = EXIT RMS ROUTINE 
++ 
RMSEX_NOSTR 
RMSEX"NIRAB_SHR 
RMSEXSUC 
RMSEXRMS 


this routine cleans up rms structures and returns | 
to the user via the exec. there are three entry points as follows: 


1. rm$exsuc exit with success 
- rm$exrms exit with status code in r0 
- rm$ex_nostr exit with status code in r0 
but without a valid ifab or irab 
(in this case ap must point to user's argument 
List and r7 must contain user's mode) 


the following functions are performed: 


1. clear busy and_restore the argument List pointer 
2. prefix the rms32 facility code to the status 

code (16 bits) in r0 and store in sts ; 
3. generate a user level completion ast if appropriate 
4. re-enable rms internal asts 
5. return to the user via the exec (ret) 


Calling sequence: 
entered via jump to the appropriate entry point 
Input Parameters: 


r0 status code (unless entry at rm$exsuc) 

note: stv must be set already. | 
r7 caller's mode (only if entry at rm$ex_nostr) 
r8 user structure addr (fab or rab) 
r9 internal structure addr (ifab or irab) 


SOOO COCOSCOOSOOSOOOSOSOSOOOOSOOSOOOSOSOOOOOOOOOOOOSoOO 
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(not an input for entry at rm$ex_nostr) 
r10 ifab address (if r9 is irab address) 
ri impure area addr 
ap arglist addr (only if entry at rm$ex_nostr) 


SOCOSCCCOCCOOOOSCOOSOOCOOSOOSOOCOSOOSOOOCOOOOOOSOOOOCOOOOOOSoOO XU 


Implicit Inputs: 

none 
Output Parameters: 

r0 full 32-bit rms status code 
Implicit Outputs: 


COOOooooooooooo 


the busy bit for the internal structure is cleared, 
sts is set to the status code. 
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v04-000 RMSEXTRMS = EXIT RMS ROUTINE -SEP=-1984 16:21:42 RMS.SRCJRMOEXTRMS.MAR; 1 (3) vO 
0 5 ; Completion Codes: 
0 standard rms 
9 % : Side Effects: 
0 11: internal rms asts are re-enabled. 
0 8 \¢ ; 
bo08 Stat 
$809 1? s+ 
8000 13 ; although the following offsets in the code | 
0000 18 : refer to the fab or ifab, the code works equally well 
0000 19 ; for the rab and irab as the definitions are equivalent 
0000 $9 ; 
B33 Bg i 
0000 ¢ ASSUME IFBS$V_BUSY EQ IRB$V_BUSY 
0000 $S¢ ASSUME IFBSL_ARGLST EQ IRB$L_ARGLST 
0000 25 ASSUME IFBSB_MODE EQ IRB$B_MODE 
0000 226 ASSUME FABS$L_STS EQ RABSL_STS 
0000 2e7 ASSUME FABSL_STV EQ RABSL_STV 


RMOEXTRMS CLEANUP RM 
v04-000 TR 


ro" 
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z 
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entry point for rm2conn and rm3conn on errors instead of 
to ex_nostr. the irab has been deallocated. Also from disconnect. 


Sete Se Ge Ge Ge Ge Ge Ge te 


ap = th i addr | 
r/ = mode 
ri0 = ifab 
RMSEX_NIRAB_SHR:: 
59 SA 00 Move R10,R9 ; put ifab into r9 
SS #1FBSV_BUSY, (R10) 3; note ifab busy in case of stall 
50 bp PUSHL RO 3; save the status 
FFF4* 30 BSBW RMSLOWER_LOCK ; release file lock 
50 8ED0 POPL 3 restore status 
CSB #I1FBSV_BUSY, (R10) ; clear busy 
r++ 
: entry point if exiting without r9 pointing to a valid internal structure 
: a8 = arglist addr 
: r? = caller's mode 
59 4 LRL R9 ; make sure R9 is cleared 
6B «11 BRB SETSTS 3 and finish up 


p++ 
; entry point to return a status code of success 


RMSEXSUC: : 


| 
| 
RMSEX_NOSTR:: | 
CLR | 
RMSSUC | 


; paery point to clean up the internal structure 
3 by clearing busy and restoring the user's ap 


OD OD OD ISN DE DO OS DS DDE OO DS TT TTT BS BS EE ENNIO 
NOUS WN OOO NAME WN 9 OON AUS WIN HO OONAUE WN OOONAOUE Win OO 
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| 
RMSEXRMS: : | 
8 ASSUME <IFBSC_BID&1> EQ 1 
A Q ASSUME <IRBSC_BID&1> EQ 0 
A 0 ASSUME IF B$B8_61D EQ IRBS$B_BID : | 
03 08 Ad «ED & 1 BLBC 1FB$B_BID(R9) ,1$ ; Branch if irab -- R10 already => ifab 
5A. 59 OD E ¢ MOVL R9,R10 ; Set R10 to ifab address 
78 AA OD 0 1 1$: TSTL JEBSL_SFSB_PTR(RIO) : Are we sharing this file? | 
98 1 & 4 BEQL $ : No, do not bother with rm$lower_lock 
DD 0026 5 PUSHL RO ; save the status 


J 


RMOEXTRMS CLEANUP AND RETURN ROUTINE 1 mite hs v1 90:40:07 AX/VMS Macro V04-00 Page 
v04-000 RMSEXTRMS = EXIT RMS ROUTINE -SEP-1984 16:21:42 (CRMS.SRCIRMOEXTRMS.MAR; 1 
FFDS' 3 028 § BSBW RMSLOWER_LOCK ; release file lock 
0 8ED 8 3 POPL RO 3; restore status 
8 . +4 ASSUME IFBS$B_BID EQ IRB$B_BID 
15 OOAO CA 04 €1 8 E 91 3$ BBC #IFBSV_AT,IFBSB_JNLFLG(R10),10$ ; skip if not AT journaling 
1108 AQ s«EB 4 36 BLBS §IFBSB_BID(R9), 10$ ; skip if this is an ifab 
50 DD 0038 9 PUSHL RO 3 save status till now 
QOO00000'EF 16 OQO3A 94 JSB RMSAT_JNL_RECORD i write the AT journal record 
0040 95 ; maintain status from AT_JNL_RECORD 
03 50 €8 Bpe8 36 BLBS RO,5$ ; skip if success 
oF re dO Bhe 9 MOVL RO ) 3 new status if failure 
E 00 0046 38 5$: MOVL  (SP)+,RO : restore status 
5C 18 AD DO 0049 00 10$: MOVL IFBSL_ARGLST(R9) , AP 3; restore user ap from ifab or irab 
004D 01 CSB #1FB$9_BUSY, (R9) ; clear the busy flag in ifab or irab 
57 OA AD 9A 0051 08 MOVZBL IFBS$B_AODE(R9) ,R7 ; get user's access mode from ifab/irab 
0055 04 ;+ 
Oa b2 ; If we are to echo SYSSINPUT to SYSSOUTPUT, then declare AST to do so. 
0055 307 ° 
29 08 AD =6—EB «OC 08 BLBS IFBSB_BID(R9) ,SETSTS 3; done if IFAB 
69 22 €1 0059 309 BBC MIRBSU_PPF_IMAGE,(R9),- ; done if not SYS$INPUT 
$3 005C 10 SETSTS 3 
69 9 €5 0050 311 BBCC #IRBSV_PPF_ECHO,(R9),- ; done if not wanted 
21 0060 315 SETSTS 3 
54 2A AA 0061 3] MOVZWL IFBSW_ECHO_ISI(R10),R4 ; get basic ISI 
1B 13 0065 14 EQL = SETSTS ; done if no ISI : , 
0067 315 BISW3 #FABSM_PPF_IND+- ; make into indirect isi with CCL 
0068 316 - <FABSM”CRAFABSV PFF_RAT>,=- 
16 AB 54 4080 8F 0068 17 R4 ,RABSW_RFA+6(R8) 3; and store in RAB 
50 OD 3 18 PUSHL RO 3; save RO 
007 19 S$DCLAST_S - ; declare AST to do the $PUT 
0070 20 ASTADR=W“RMSSECHO,- 3; routine address 
0070 21 ASTPRM=R8,- 3; astprm is user's RAB 
0070 $6 ACMODE=R7 : deliver in caller's mode 
50 8ED0 tha $2 POPL RO 3; restore R 
$083 25 SETSTS: SSB #16,R0 : add rms Fog it ity code 
08 AB 50 00 0086 6 MOVL RO, FABSL_STS(R8) ; and store in fab/rab 
FF73° 30 ts i BSBW RMSSETEXTRMS 3; Call routine to fill in context XABs 
08D , 
$08 0; Revalidate the user's argument List and generate a user-level completion 
G08p : 3; ast if the user has included the appropriate ‘‘ERR="" or ‘’SUC="" parameter. 
08D ; : 
33 4 IFNORD #1,(AP),10$,R7 ; skip ast if no access to arq List 
02 6C 91 00 22 CMPB (AP) #2 ; completion routine specified? 
44 —=CO*SACR bee § BLSSU 108 3; branch if none 
0c 50 €8 009 LBS RO,2$ ; branch if RMS operation successful 
098 8 IFNORD #12, (AP),7$,R7 ; branch if no access to ERR argument 
51 08 Oc oF oa i Sa a8 (AP) Ri 3 get error completion routine addr 
5 13 OA? 41 2$ BEQL 10% ; branch if just 2 params | 
00A9 42 : Cimplies no success routine) 
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v04-000 RMSEXTRMS = EXIT RMS ROUTINE eet 90:30:05 RMS ..SRCJRMOEXTRMS.MAR; 1 . 
Ag 43 IFNORD #18 (AP) ,7$,R7 ; branch if not readable 
51 OC BC DE AE a4 MOVAL ai2CAP),R1 ¢ get success completion routine addr 
Hf 13 083 6 5$: BEQL 10$ 3 ast addr of 0 => ‘‘don't generate ast"’ 
ae 1 ¢i 006 4 ADDL3 = #1,R1,R2 ; bogus -1 addr from RMSSTALL? 
10 13 008 48 EQL 7$ ; give CDA error if so 
088 49 SDCLAST_S ASTADR=(R1),- 
088 50 ASTPRM=R8,- 
0B 51 ACMODE=R 
0D 50 =€8 Bate 26 BLBS RO,9$ 3; branch on error 
Oc AB 08 AB 00 C 54 7$: MOVL FABSL_STS(R8) ,FABSL_STV(R8) ; register alternate error status 
08 AB UO01COES BF D0 0000 55 MOVL #RMSS_CDA FABSL_STSTRB) ;: ; score new error status 
50 08 Am 00 ee 2§ 9$: MOVL FABSL-STS(RB) ,RO 3 restore status code 
34 68 O01 €E5 ita 58 10$: BBCC #IMPS$V_AST,(R11) ,ENBAST 
59 DS OO0E 59 TSTL Rg : zero ifab/irab addr? 
08 13 O0E2 60 BEQL SETIOR 3; branch if yes 
00E4 61 
QOE4S 6¢ 3 
QOE4 63 ; NOTE: The above indicates that we have just deallocated the ifab 
00E4 64 ; or irab in $close or $disconnect. 
00E4 65 ; Assumes async efn must be set. 
00E4 $08 ; 
OQ0E4 67 
QO0ES4 368 ;+ 
O0ES4 369 ; Check for setting of async event flag. 
00E4 370 ;- 
Q00E4 371 
Q0E4S $/§ ASSUME IRBSV_ASYNC EQ IFBSV_ASYNC 
0 69 23 €1 ta $7 BBC #IRBSV_ASYNC, (R9) ,SYNCH : branch if not async i/o 
00E8 37 ASSUME IRBSV_ASYNCWAIT EQ IFBSV_ASYNCWAIT Pe 
2069 24 +&£€5 QOE8 76 25$: BBCC #IRBSU_ASYNCWAIT, (R9) ,RETURN ; branch if no wait issued 
QOEC as : else set flag 
OOEC 78 
435 305 ASSUME IMPSC_IOREFN EQ IMP$C_ASYEFN 
OQOEC 81 SETIOR: SSETEF_S #IMPSC_ASYEFN ; kick off the stalled wait 
04 OOFS if RET 
OOF6 8 
OOF6 84 
0B AD «94 st 85 SYNCH: CLRB IRB$B_EFN(R9) ; show no efn alllocated 
Soro | 3RP s+ 
tie He 3; return the ifab's asb (if any) as operation is now complete 
OOF9 90 
OOF9 91 ASSUME <IFBSC_BID&1> £0 1 
OOF9 5 ASSUME <IRBS$C”~BID&1> 0 
ts iS ASSUME IFB$B_B1D EQ IRB$B_BID 
OF 08 AD EY Oeep 95 BLBC IRB$B_BID(R9) ,RETURN : branch if not ifab 
54 14 A9 0 OFD 36 MOVL 1FBSL~ASBADDR(R9) ,R4 3 get asb addr ’ 
9 1 101 9 BEQL RETURN : dont deallocate if not present 
535 5B 00 193 9 MOVL R11,R5 ; free space header at start 
106 9 ; of this page 
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3; free it up 
) 3; show no asb 
ORUNDOWN,(R11) ; branch if i/o rundown or 
: if synching with RU handler 
3 exit rms 


re-enable asts by clearing the ast inhibit bit 
and if bit already clear perform an enable asts directive 


F7 00000000'9F 00 £4 


ENBAST: oO5e ‘ SPEGON TRIAS! OOP SORE STATUS ERET ; Enable rms asts 
50 08 A&8 00 


a ; Enable exec asts 
pers FABSL_STS(R8) ,RO 3; restore status code 
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v04-000 RMSSECHO = Echo SYSSINPUT to SYSSOUTPUT -SEP-1984 16: FRMS SRCIRMOEXYRMS MAR: 1 (5) | 
] “ rt ~SBTTL RMSSECHO - Echo SYSSINPUT to SYSS$OUTPUT | 
it AS a 
012A 421: This routine echos a $GET from SYSSINPUT to SYSSOUTPUT. It is invoked | 
4 . : ¢ : as an AST routine in callers mode, declared by RMSEXRMS. | 
012A 424; A RAB is constructed on the stack, and an  Aipanataataniaes $PUT of the 
4 ; Pr 2 3 record described in the user's RAB is issued. 
QO12A 427 ; Calling sequence: 
O12A 4 § 5 
012A 429; CALLed as an AST routine 
012A 430; 
012A 431 ; Input Parameters: 
012A $36 : 
QO12A 433; 4(AP) User RAB address 
012A 434; 
012A 435 ; Implicit Inputs: 
012A 436; 
O12A 8437 ; RABSW_RFA+6 ISI to use for $PUT (w/ppf_ind set and ccl set up). 
QO12A 438; Note that this is currently a spare word. 
012A 439: | 
Bish 440 ; Output Parameters: 
O12A 441; 
012A 226 : none 
012A 443; 
012A 444 ; Implicit Outputs: 
Bish 445; 
bia rr s The record read from SYSSINPUT is echoed to SYSSOUTPUT. 
012A 448 ; Completion Codes: 
012A 449; 
Bish 450 ; status of $PUT 
Q12A 8451; 
012A $28 3; Side Effects: 
012A 453; 
O12A 454; none 
012A 455; 
012A 456 ;:-- 
012A 457 
003C 012A 458 -ENTRY RMSSECHO,“*M<R2,R3,R4,R5> 
012C 459 
4 C 460 ;+ 
12C 461 ; Allocate and zero a RAB on the stack. 
ats ae 
5E BC AE 9E O12C 464 MOVA -RABSC_BLN(SP) ,SP ; allocate a RAB on the stack 
00 6€ 00 2C 0130 465 MOVC P Pn ; zero the RAB 
6— 0044 8F 4 4 $98 #RABSC_BLN. (SP) : (R1 now contains address of RAB) 
1 H 468 ;+ 
1 $$? 3; Now set up RAB and do the $PUT. 
1 470 ;:- 
1 471 
4 $76 ASSUME RAB$B_BID EQ 0 
1 47 ASSUME RABSB™ _BLN EQ RAB$B_BID+1 
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user RAB a 


I1D+<RABSC ee : fill 9 B18 and BLN 
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; Copy record size 
; copy record address 
: store PPF ISI & ccl 


S spect ty async operation 
iw the record to SYSSOUTPUT 


; all done - return 
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Symbol table 
$$.PSECT_EP 
$S.TMP1 


$$. TMP2 
SSRMSTEST 


AB 
FABSM 
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BSV_ASYNCWAIT 
SV=A 
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V-A 
IMP$V_ IORUNDOWN 
IMP$V_RUH_SYNCH 


R 
RBSV_ASYNC 
RBSV~ASYNCWAIT 

V~BUSY 
RBSV~PPF~ IMAGE 
I DOON 
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RABSW_RSZ 


RMSAT_JNL_RECORD 
RMSEXRMS 
RMSEXSUC 
RMSEX_NIRAB_SHR 
RMSEX-NOSTR 
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RMOEXTRMS CLEANUP AND RETURN ROUTINE i onl oee 90: 0:07 VAX/VMS Macro 
Psect synopsis -SEP-1984 16:21:42 CRMS.SRCIR 
poemoewnmones woancen + 
! ; Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
ABS 00000000 0.) 00 ¢ 0.) NOPIC USR CON’ ABS 
RMSRMSO QOOO01SF ¢ 351.) O01 ¢ 1.) PIC USR CON” REL 
S$ 00000000 0.) O02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD 
doo en esreae senescence esrwewoe 
! Pertoraence indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 36 00:00:00.06 00:00:01.79 
Command processing 129 ss 6 SEA 00:00:06.89 
Pass 310 00:00:10.0 00:00:30.61 
Symbol table sort 0 00:00:01.23 Bo 8 Re +a 
Pass 2 94 00:00:02.05 00:00:05.89 
Symbol table output 10 80 :00:00°05 00:00:00.60 
Psect synopsis output 2 00:00:00.0 00:00:00.02 
Cross-reference output 3 00:00:00.00 00:00:00.00 
Assembler run totals 58 00:00:14.21 00:00:48.22 


The working set Limit was 1500 pages. 
552335 bytes (108 pages) of virtual memory were used to buffer the intermediate code. 
There were 50 pages of symbol table space allocated to hold 1004 non-local and 15 Local symbols. 
487 source Lines were read in Pass 1, producing 17 object records in Pass 2 
1 pages of virtual memory were used to define 29 macros. 


SOS OO et 


Macro Library name 


_$255$DUA28: tf at yt mt 1 12 
=Bse2sbuAce: bs MLB: 1 2 
“$255$DUA28 SR Tt MLB;2 11 
TOTALS (all Libraries) 25 


1192 GETS were required to define 25 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMOEXTRMS/OBJ=OBJ$:RMOEXTRMS MSRC$:RMOEXTRMS/UPDATE=(ENHS:RMOEXTRMS) +EXECMLS$/L I1B+LIBS:RMS/LIB 
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LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
GBL NOSHR EXE RD NOWRT NOVEC QUAD 


WRT NOVEC BYTE 
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